my $repCpt = "./corpus_comptage-lemmes/";
if(! -d $repCpt){
	mkdir ("./corpus_comptage-lemmes/");
}
my $directoryName = $ARGV[0];
opendir(DIR, $directoryName) || die "Impossible d'ouvrir le dossier $directoryName\n";

my @files = grep { /.txt$/ } readdir(DIR);

closedir DIR;
my ($mot, $cat, $lemme);
for my $file (@files) {
	open (TT, "\$TTDIR/tree-tagger-french $directoryName/$file |") || die $!;
	my %h = ();
	while (my $ligne = <TT>){
		if($ligne=~ /^(.*)\t(.*)\t(.*)$/){
			$mot=$1; $cat=$2; $lemme=$3;
			if(($cat !~ /^PUN/ )&&($cat ne "SENT")&&($cat ne "NUM")){
				if($lemme eq "<unknown>"){
					$lemme=$mot;
				}
				if($lemme eq "\@card\@"){
					$lemme=$mot;
				}
				$lemme=lc $lemme;
				#print "$lemme\t	$directoryName$file \n";
				if(exists($h{$lemme})){
					$h{$lemme}++;
				}else{
					$h{$lemme}=1;
				}
			}
		}
	}
	close TT;
	#sort trie par num, on fait donc $a comparé par cmp (alphabetique) avec $b
	open (OUT, ">$repCpt$file.lemmes") || die $!;
	for my $k(sort { $a cmp $b } keys(%h)){
		print OUT "$k\t$h{$k}\n";
	}
	close OUT;
};
